home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
PROBLEMS
/
BENCHMARK
/
BUBBLESORT
/
bubbletest
/
assembler
/
!run
next >
Wrap
Text File
|
1992-09-02
|
364b
|
10 lines
set alias$time1 <obey$dir>.^.time1
set bubble_formula$dir <obey$dir>
if "<time1>" = "" then run <bubbletest$dir>.Time1
<bubble_formula$dir>.program { > <bubble_formula$dir>.output }
set bubbletest$dir <obey$dir>.^
<bubbletest$dir>.prove2 <bubble_formula$dir>.output { > <bubble_formula$dir>.time }
settype <bubble_formula$dir>.time text
<bubble_formula$dir>.time